
Unikt nummer 

Detta år ett unikt nummer av vår 
specialtidning för prenumeranter. 
Hela 16 sidor tjock!! Ja, eftersom 
det inte kom nigot nummer förra 
gången så lovade vi ju au göra det¬ 
ta nummer dubbelt så innehållsrikt 
och hår år resultatet: massor av 
listningar för Commodore. Atari. 
Spectrum och MSX. 

Detta år bara början. Vi kom¬ 
mer att fortsatta med den hår typen 
av listningstidning men kommer 
åven att bredda vår diskettservice 
lör andra mårken ån bara Commo¬ 
dore 64. Du kan ju. redan nu. för 
39:-. bestalla cn disken för denna 
dator dår de flesta program finns in¬ 
knappade och klara. Talong finas 
längst bak i tidningen. Vi arbetar 
nu på att kunna ge samma service 
för Atari ST i nås ta steg. 


Bandspelarhjalp 

1 huvudtidningen finns en artikel 
om hur man rider bot på inladd- 
ningsproblem om man har en 
Commodore 64 med bandstation. I 
artikeln namns an HK Electronics 
nu distribuerar en bandspelare dår 
justeringsmöjligheten Load It redan 
finns inbyggd. Denna bandspelare 
kallas Load It MK II och kostar 
395. Förutom i de flesta dator¬ 
affärer kan denna bandspelare även 
beställas från Fungus Elckrtronik, 
Box 1048. 144 01 Rönninge 
Fungus har aven ett specialerb¬ 
judande för SHN:s läsare, se sisu 


Replie från 
Chara' ? 

Från Tyskland via Chara' år en 
hårdvanitillsats på gång för Atari 
ST. Tillsatsen som kallas Replica 
Box kopplas in mellan dator och 
diskettsution och gör det möjligt 
au få backup-kopior på ett såken 
och smidigt sätt. Priset för denna 
tillsats kommer att ligga på ca 
14%:- och intresserade kan höra av 
sig till Chara', tel: 0290-216 38/ 
233 60. 


Imperiet slår 
tillbaks 

Domart har annonserar att man 
snart kommer att laasera filmen: 
Imperiet slår tillbaks såsom dator¬ 
spel. Man hoppas på samma 
framgångar man hade med "Siar 
Wars ’ då de na släpptes. 

I spelet styr man Luke Sky- 
walkers och Han Solos rymdskepp 
mot säkerhet av en stor asterioid. 


Det finns fyra olika spelnivåer dår 
varje nivå år svårare ån den tidi¬ 
gare, mot sig bar man Danh Wadcr 
som har sänt sin arme för au hinda 
våra hjältar att nå sin mål. 

Spelet har programmerats av 
Vektor Grafix som aven gjorde 
Star Wars på sin tid. Imperiet 
slår tillbaks kommer att finns 
för de flesta 8- och 16-bitars dator, 
någon gång under Juli. 


Rambo III 

Ocean kommer snart med en dato¬ 
riserad form av Ramboo III. Spelet 
år baserat på filmen med samma 
namn och kommer att finnas för 
Spectrum. Amstrad. Commodore 
64. Atari ST, Amiga och PC. 


Till skillnad från föregångaren 
Ramoo II som ju var ett enklare 
skjuta-ner spel kommer Ramboo 
III au innehålla sekvenser av arka- 
daväntyrstyp. Här kan man t.ex. 
infiltrera det ryska kringsfånge- 
lågret. 


Hewson satsar 
på ST 

Hewson. eu av de ledande mjukva- 
ni foretagen i England har haft en 
låg profil ett tag men år nu på 
gång igen. Efter en kampanj efter 
bra program på 16-bitars datorer 
kommer man nu med ett antal 
sådana under sommaren. 

Cybernoid 

Detta år ett snabbt arkadspel med 
de klassiska ingredienser som hör 
till eu sådant spel. En recension 
väntas till nåsu SUN i Augusti. 

Netherworld 

Hår gör man en djupdykning i 
mörka mysterier. En annan värld, 
en annan tid, en annan plats som år 
skapad av det mötta omedvetna de¬ 


larna av sinnet dår kampen mellan 
Det Onda och Det Goda kämpar en 
evig strid. Programmet kommer 
under Augusti. 

Roadstar. 

Ett snabbt 3D-spel från John Phil¬ 
lips. mannen bakom Nebulus. 
Släpps under September. 

Astaroth the 
Angel of Dcath 

Ett grafiskt äventyrsspel med alla 
hemskhcier och labyrinter man kan 
önska sig. Skall komma under No- 


Stormlord 

Eu scrollande skjuta-nerspel, skri¬ 
vet av Rafraele Cecco, känd för 
många andra liknande spel. Under 
November. 


Den vilda jakten Du åren 
agent på rymmen. Kan du kla/a dig 
undan förföljarna? En lisming som 
ger dig eu kul spel för Commodore 
64 (sid 4) 

Använd funktions- 
tangenterna 

Bilder för Doodle 

Två listningar för Commodore 64 
som gör det möjligt an dels definiera 
egna betydelser av F-tangenterna dels 
kunna ladda in och bearbeu bilder 
gjorda med Doodle (sid 5) 

TRON Eu Basic-program för 
Amiga. (sid 6) 

Mönster Ett program i Fast 

Basic för Atari ST som ger vackra 
monster i färg. (sid 7) 

5-KAMP Ett mastigt sportspel 
för MSX (sid 8) 

FAT RAT Samla ostar och 
åtetge mössen dess kraft att försvara 
sig mot Kanen Gustav. Listning för 
Commodore 64 (sid 9) 

Sprite Machine tu sprite- 

tillverkningsprogram för Commo¬ 
dore 64 (sid 10) 

Tangentbordsdriver En 

assemblerlistning för Atari ST som 
ger dig en (nästan) valfri tangent- 
bordsuppsåttning (sid II) 

Flasbar Tre fiash-rutiner för 
Commodore 64 (sid 12) 

Anteckningsblocket Ar¬ 
beta med två skärmar samtidigt. 
Listning för C64. (sid 12) 

The Cleaner Eu underhäll 
ande spel för Spectrum (sid 13) 

Synth-trummor Rytmik 
för din Commodore. (sid 14) 

Tecken till RAM Flytta 

över hela skärmminnet till RAM 
från ROM (sid 14) 

Diskett-Index Håll ordning 
på dina program med deua register 
förC64. (sid 15) 

Mastermind En variant på 
det kanda spelet -hår i version för 
Spectrum (sid 16) 

Styr din sprite En inter- 
rupt-niun dår du kan styra din sprite 
med joystkk. (sid 16) 






















"BREVET” 

Dags för 1’renumeranternas "Chat 
Corner" Här kan skriva vad som 
helst med synpunkter och efter- 
lysningar. Skicka ditt brev till: 
"Brevet", Hemdator Nvtt, 

Box 152, 448 01 Floda. 
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MER OM PC / 


Tjena! Nu ar jag heligt 
ad!!! För ca 1/2 ir sedan skickasde 
jag in en insändare om PC och ni 
"lovade’ att fixa åtminstone I 
ynkans liten sida om PC och vad 
har det varir?? Några usla recen¬ 
sioner om spel som var urgamla (i 
och för sig år Rogue klart bra!) 
men inte ett enda litet tips eller 
några nya spelrecensioner. Mitt 
förslag år nu: l/Minst en sida med 
tips mm per nummer. 2/ Minst två 
spelrecensioner per nummer. 

Bara för att vi PC-anvåndare 
inte har en Atari. Amiga eller 64:a 
betyder det vål inte att vi vill låsa 
om dessa datorer. Det står ju fak¬ 
tiskt på framsidan "Den enda 
svenska tidningen för alli hemda¬ 
torer oavsett mårk e’ och då har ni 
också en skyldighet att hålla detu. 
Eller år ni sponsrade av Commo- 
dore och Atari? Slut på klago 
milen! Annars tycker jag att SHN 
har blivit klart båttre 

Jag åger åven en X-press 16 
och det finns, enligt manualen. 
MSX2-graftk. sprttes mm. Hur 
skall man konuna it den eftersom 


de inte understöds av t.ex. GW 
Basic? Om någon har tips. skriv 
till mig: 

Nisse Danielsson 
Prosavågen I 
781 34 Borlänge. 
P.S. Attle! Disketterna smakade 
bra med mycket senap, tack för tip¬ 
set. hår år ett tips till dig: Fiambe- 
rad CPU med knapcrstekta Sinclair 
suddegumstangentcr. Smaklig mål¬ 
tid. D.S. 



Svar; Man skall aldrig reta upp 
sig, dd blir man bara arg. För att få 
en perfekt tidning, har vi förstått, 
skall denna innehålla 
al Nyheter som är da g sfär ska 
(pressläggningstider slopar vi gi¬ 
vetvis) 

b I Minst 60 sidor skall handla 
om H Commodore. 21 Spectrum. 
3'Atan. 41 Oric. 5/ MSX. 6/ PC. 
7/Microbee. 81 Texas. 9/ Jupiter 
Ace mfl. Dessutom skall det helst 
vara lika många sidor med spelre¬ 
censioner för II Commodore. 2/ 
Spectrum. 3/Atari. 41 Oric. 51 
MSX. 6/ PC. HMicrobee. 8/ Tex¬ 
as. 9/ Jupiter Ace mfl. 

Skämt åt sido. jag förstår att du 
känner dig missgynnad. Visst gör 
vi en tidning för alla datorer oav¬ 
sett märke men måste tyvärr se till 
att så många som möjligt kan få 
valuta för sina pengar. Rikligt 
rättvis blir man kanske om man 
justerar sidorna i förhållande till 
läsekretsens datorinnehav. Vi vet 
t.ex. att ca 80*k av våra läsare har 
en Commodore och att OJ % av 
alla läsare har en Oric. Dett skulle 
då innebära alt av ett nummers 64 
sidor så skulle 512 sidor vikas för 
Commodore-material och ca 99 


spaltmillimeter för Oric. När det 
gäller PC så har ca 2% av våra 
läsare en sådan maskin och de 
övnga 98% anser troligen inte att 
PC kan kallas för en hemdator. 

Personligen tycker jag att en PC 
mycket väl kan hamna under hem¬ 
datorbetydelsen. Den har allt det 
som man behöver få ut av en sådan 
och är numera dessutom billig i 
inköp. Detta är anledningen till all 
vi. någon gång i bland har haft ma¬ 
terial om och för PC. 

Det år väldigt få PC-program av 
underhållningtyp som kommer till 
redaktionen för en test. Vi kan 
dock lova att det blir fler och recen¬ 
sioner är just nu under arbete. 

Om du nu tror att vi skulle 
vara sponsrade av Commodore ell¬ 
er/och Atari sd är det bara an titta 
på hur ofta dessa företag annonserar 
i tidningen. Svenska Commodore 
har hittills mött oss med kalla 
handen medan Atari Corp Scandi- 
na via åtminstone håller en infor¬ 
mationkanal öppen för oss. Nej. vi 
jobbar helt obundna av något 
förelag vilket är en policy som vi 
inte vill eller kommer att rucka på. 

Men visst har tidningen blivit 
båttre? iRedl 
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ETT ENKELT RECEPT PÅ HUR DU KAN 


FIXA DIG EN 
PRENUMERATION 
GRATIS! 


Det finns flera sätt att fixa 
sig en prenumeration av 
Svenska Hemdator Nytt. 
En är att betala avgiften 
som vanligt. En annan är 
att låta någon annan per¬ 
son betala den för dig 
Men det finns numera an¬ 
dra sätt att få en prenu¬ 
meration helt gratis! 

Sätt 1 

Du kan hoppas på turen - vi lottar 
ju ut var SOOte prenumeration vil¬ 
ket du kan läsa om här inbil. 

Sätt 2 

Detta är ett lite säkrare sätt men 
kräver en mer aktiv insats från din 
sida. Du kan nämligen förlänga din 
egen prenumeration genom att 
skaffa tidningen nya. 

Två nummers 
förlängning 

Genom att hjälpa oss att skaffa fler 
prenumeranter vill vi belöna dig 


för ditt arbete genom att förlänga 
din prenumeration med två 
nummer för vatje ny prenumerant 
du kan skaffa åt oss. Delta innbär 
att du. ganska lätt, kan fixa dig 
ett helt års Svenska Hemdator 
Nytt genom att bara intressera 
fyra kompisar för bdningen. 

Gör så här: 

Ta med dig tidningen och visa 
den för vänner, kompisar och 
bekanta. Visa dem gärna den här 
extra-tidningen som ju bara skic¬ 
kas ut ull dem som prenumere¬ 
rar. Det kan vara ett bra sälj- 
argument. Tala om för dem att 
dom bara behöver betala 15:75 
per nummer om de prenumererar 
mot 24:50 som tidningen kostar 
numera. Man tjänar alltså 8:75 
varje gång! 

Fyll i cn av 
talongerna 

Tillsammans med din kamrat 
som vill börja prenumerera fyller 
du i en av de talonger som finna 


på den här sidan. Där ser du alt 
det finns plats för både ditt eget 
namn och din kamrats. Var noga 
med att uppgifterna i fältet med 
ditt namn stämmer överens med 
de som finns angivna på din egen 
tidnings omslagsetikett. Vi måste 
ju snabbt kunna hitta ditt namn i 
vårt register för att kunna för¬ 
länga din prenumeration! 

Skriv tydligt 

Texta gärna och skriv läsligt. 
Glöm inte postnummer och ort. 
Skicka sedan in talongen snabbt 
Ull oss. Så fort din kamrat har 
fått sitt inbetalningskort och be¬ 
talat sin prenumeration så kom¬ 
mer din egen att förlängas. Att 
detta har skett kan du kontrollera 
genom an din prenumeration sk od 
ändrats på etiketten. sifTroma 882 
betyder att din prenumeration 
varar till och med nummer 2. 
1988. 


Vi önskar dig Ivcka 
till! 


*-********’*+**********************+******************+ 

/ Ja. Jag har hittat cn ny prenumerant. Skicka, sa fort som möjligt, ett inbe- ^ 
t talningskorl till honom/henne. Namn och adress har jag skrivit tvdligt här: ^ 

- ^ 

i-MKs i - i 

.. \ 

PoiuuvOn 

J Mitt eget namn och adress har ni här så att ni kan förlänga minf 
j prenumeration med två nummer. 

^ "känn” — — — — — — — — — — — 

| "Ädrej* - — — — — — — _________ ________ ________ 

t Pounr/Ort ~ ~ A 

> 9 

/ Denna kupong skickas in i frankerat kuvert Ull: 5 

SELDA MEDIA, BOX 152, 448 01 FLODA. 

Så fort den nye prenumeranten registrerats och betalt sin prenumeration skall 
prenumerationen hos den som värvar förlängas med två nummer. 

J Ja, Jag har hittat en ny prenumerant. Skicka, sä fart som möjligt, ett inbe- / 
4 talningskorl till honom/henne. Namn och adress har jag skrivit tvdligt här: J 

ä Rarai — — — —— — — — — — — — — — — — — — — — — — — — — — —— — — — — — j 

. . \ 

J Fovlnr^rt- 0 

\ Mitt eget namn och adress har ni här så att ni kan förlänga 0 

J min prenumeration med två nummer. 

t?::::::. 

i Adress é 

\ - 6 

w. flostnr/Ort Zå 

Denna kupong skickas in t frankerat kuvert ull: 

SELDA MEDIA, BOX 152, 448 01 FLODA 

Så fort den nye prenumeranten registrerats och betalt sin prenumeration skall 
prenumerationen hos den som vårvar förlängas med två nummer 
+*jr*****'*'**.r** , *jr**jr*jr**** 1 r***** 1 r**jr*j'***** J r*j'*** 1 r* J r****S/ 


GRATTIS!! 

Linnea Forsberg, 931 45 Skellefteå 
David Steen, 780 54 Äpplebo 
Tony Berglund. 600 14 Norrköping 

Sedan en tid tillbaks har vi smyglottat ut var 
500:e prenumeration. Sedan lorra prenumera¬ 
tionspecialen kom ut så har ytterligare drygt 
1500 .tya prenumeranter tillkommit och ovan¬ 
stående tre personer har nu fått sina pengar till¬ 
baks men får ändå sin tidning ett helt år framåt. 
Något for Dig? Se bara till att du förnyar din 
prenumeration när inbetalningskortet kommer 
så ar du med i utlottningcn! 


Äldre nummer av 
prenumerantspecialen 

Många ringer och vill ha äldre nummer av pre- 
numcrantspccialen. Vi har fortfarande kvar någ¬ 
ra ex av varje nummer och enklast får du dessa 
genom att sätta in avgiften 6:50 på vårt post¬ 
girokonto nr 470 50 43-0. Skriv på talongen 
vilket nummer du saknar och vill ha. I avgiften 
ingår portot - billigt eller hur? 


Mephistos vrede 

Ja, så lyder titeln på CRL:s nya spel: 
Mephisto's Mayhem, i svensk över¬ 
sättning. I detta spel som kom för Com- 
modore 64 i slutet av Maj, tar du skep¬ 
naden av Ärkeängeln Bertram och skall ta 
dig ner i underjorden för att resa omkring i 
landet mellan himmel och helvete i sök¬ 
andet efter de borttappade tio budorden. 

överallt möts du av hotande faror i 
form av spöken, zombies och benrangel. 
Till slut kanske du lyckas att ta dig ända 
fram till Helvetet för att kämpa den slutliga 
striden mot Den Onde, själv. Tur att du har 
ditt hemliga vapen med dig, din gloria! 

Detta är ett två vägs scrollande spel med 
över 500 scener. Pris: ca: 169:- /kassett 

Microlllusions med 
nytt spel för Amiga 

Ebonstar heter ett av Microillusions nya 
spel för Amiga. I spelet som kostar ca 
330:- får man delta som spelare i ett slags 
gladiatorspel någon gång i framtiden. Det 
gäller att slå ut sina motståndare så att de 
hamnar i t.ex. ett sJc. svart hål i rymden. 

Upp till fyra arkadfantaster kan spela 
mot varandra eller eventuellt bilda 
gladiatorlag. 

Photon Paint 

För Amiga kommer även ett nytt 
ritprogram som sägs kunna ta upp kampen 
med alla andra liknande produkter. For de 
ca 900:- det kostar borde det kunna leva 
upp till sitt rykte. Vi återkommer med 
rapport när vi har lyckats lägga vantama på 
ett exemplar för test. 


Vi önskar alla läsare 
en riktigt skön 
sommar! 

Nästa nummer 
kommer ut den_ 

25 Augusti. 
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DEN VILDA 

HEJ! HÄR ÄR ETT L/TET SPEL. SKRIVET FÖR 
COMMODORE 64. SOM JAG HOPPAS NI SKALL 
FINNA BÅDE KORT OCH ROLIGT 

Du är en agent som just har fått tag på hemliga dokument. Men tyvärr 
har du blivit upptäckt och dina fiender har nu jagat upp dig på taket på en 
väldig skyskrapa. Du hör an de är på väg upp till takluckan och din enda 
chans är att hoppa. Vilken tur an du har din fallskärm på dig! 

Men dina förföljare står inte maktlösa utan böljar i stället att kasta 
bomber och tegelstenar efter dig. Kommer du att överleva färden ner till 
marken? Allt hänger på dig!! 

Du kan välja mellan att styra med joystick eller med tangenterna. In¬ 
struktioner finns i spelet. Knappa in listningen rakt upp och ner och spa¬ 
ra den på band eller diskett när du är klar. Lycka till! 
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U,„ 0 ,TA1»MPe,l.W.'E8.>.'’'-' 28 -'' 2 

JÄ^Ut.U.D.G.O.O.G.O.D.O.U.O.U 

1270 DATAO.0,0,0,0,0,0 

,JT3 AEM SPAITE DATA STW # j fc >0 , 0 ,0 
1,20* DATA251 ,4»,G.1|T2B.7,J*3i , >-3.' 82 ’ 1 '' 

^»'/datat.pau.o.b.o.u.g.o.d.d.o.o.g/) 

136 O DATAO,0,0,0,0,0,0,> 


ANVAND 

FVNK TIONS TANGENTERNA 


Här kommer tvä olika program, det Det andra programmet kan användas i egna program för att kunna ut- 
första kan du använda för att definiera nyttja högupplösningsbilder gjorda med ritprogrammet "Doodle". Adressen 
upp din dators funktionstangenter till i böljan av programmet kan ändras utan att pärugrammet förstors. Instruk- 
olika saker t.ex. LIST och RUN. tionema är givna i båda programmen. 
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o R-O 

s pokes 3880 . 18 . pqkesmbj . ie pr int -c blk > - , oosueiooo 
10 PRI NT”(CLPJ( OOWN> tOOwN) C6l TANGENTFUNKT10NER 

TOMAS ulBEROCOOWN»- 
15 Bf':PPINT- nENV 

80 PPINT- 1. DEFINIERA TEXTER.* 


85 PPINT- 
30 PPINT" 
35 PPINT* 
10 PPINT- 


. OvERFoRA TEXTER TILL 
3. SPARA.* 

9. INSTRUKTIONER.- 
S. SLUTA.* 


OATASATSEP “ 


tNSTRuKTIONER- 


15 OETXS:irx*«-l-0RXS>-5-ThENlS 

so x-asccxsj-ib 

5S ONXBOTOBO.350.B75.500.195 

60 PRINT-CCLRUOOWNMOOWN) TRYCK NER FUNKTIONST ANQENTEN SOM SKALL OnOEF INI ERAS . 
65 OETXS.IPX»-"-THEN6S 

70 IFA9CCXS»138THENX-ASCcXS>-i33tGOTOBO 
75 Q0T065 
80 1FX>BTNEN65 
B5 B-19158-C30-X) 

30 PR1NT-(OOIHNHOOMN> SKA DATORN TRYCKA RETURN EFTER ATT HA SKRIUIT UT TEXTEN** 

35 OETXS: IFXSO-J-AN0XSO-N-THEN3S 
10O IFXS--J-THENR-1 

105 PRINT-CDOUNMOOUNJ OEN SENAST DEFINIERADE TEXTEN PA TANOENTEN AR " 

110 PPINT-(DOUN) (PwS)": F0RA-8T0B-89:1FPEEKCAX»13THENPRINTCHRSCPEEKCAJJ* 

115 IFPEEKC A»-13THENPRINT, 

180 NEXT PPINT-COFF»- 

ies PRINT"COOVN»COOWNJ vILL OU andra DET7- 
130 OETXS:IFXS< »-J*ANDXS< »”N*THCN130 
135 IFXS-"N-IHEN10 

110 PRINT-COOUNXDOWNI SKRIV DEN NYA TEXTEN tflAX . “. 30-Ri "BOKST . >- 
115 SYS65187 

150 AS-CHRSCPEEKC815»);IFAS--."TMENA*-CMRS<13) 

155 1FAS<>CKR9C13»THENBS-BB«AS.80T019S 

165 IFLENC BS >>30-RIHENPRINTCMRSt13)" MAK.*30-R"B0 KSTavER' " BS-"" OOTOllS 
170 IFLENCBSX1TKEN115 

175 F0RA-BT08-LENC BS•-1 POKEA.ASC(MlDSCBS.A-B-l.11)* NEXT 

ISO IFR-ITHENP0KEA.13 

IBS FQRC—A-RT0B-89-POKEC.0:NEXT 

130 QOTOIO 

135 SYS13333EN0 

350 C-19158 PRI NT-(CLP > C OOWN» C D0VN> C OOWN) (ROHT) ( RQHTICROHT1C ROM T »OVCRFOR. . . . " FO 
RA-1301TO3167STEP68 

355 F0RB-AT0A-59: X-PEEKCC» IFX<> 13ANDX< »OANOXO31THENP0KEB. PEEKCO . 00T037S 
360 1Fx-13THENPUXLB.BIO:G0TD375 
36S IFX-OTMENPQKEB.818Q0T0375 
r*0 TFX-39THENPOKEB 199 OOT037S 

505 PPINT* -* 

510 PR1NT ~ CBLU»DEFINIERA TEXT.- 

515 PRINT-CBLK)DET HAR OOP DET noJLIOT FOR 010 ATT OEFtNIERA EGNA TEXTER TIL 
L’t 

516 PPINT* FUNKTIONS- TANOENTEPNA . " 

550 PPINT-CDOVNMBLUJOVERFOR TILL DATASATSER.- 

555 PRINT-CBLK»DETTA OVEPFOP TEXTERNA TILL DATASATSER " 

S30 PPINT“C DOWN» f BLU > SPARA." 

535 PRINT-CBLK »DET HAR SPARAR DAT A5AT3ERNA I ETT PROGRAM OU KAN LADDA"; 

536 PPINT" IN OCH KOPA SEPARAT-; 

515 PRINT*COOWN» <BLU »SLUTA.' 

550 PRINT-CBLK»DETTA STOPPAR PROGRAMMET.- 
55S PPINT”!DOWN»I RED»OBS' " 

560 PPINT"C BLK »OM OU TRYCKER RUNSTOP/RESTORE SA SKRIV 

561 PRINT-ATERSTARTA." 

5b5 PP1NT“CRE0 »SKRIV INTE IN NAGRA EGNA RADEP 1 
570 PRINT■C BLK J _ BETYDER PETuRN." 

BOC OETXS 1FXS—*"THEN800 
BOS QOTOIO 

875 INPUT*CCLR)(OOWN>COOWN>SKPIV IN FILNAMN”,NS tFNS-*"THEN87S 

880 INPuT-COOWNJDISK ELLER BAND".AS IFAS«»"B“ANDAS**-D“TMENPF!NT“CUP»CUPJCUP>”.0 
010880 

885 F0RA”50005T05001B POKEA.0 NEXT F0RA-1T0LENCNS» P0KES0001-A.ASCCMJDSCNS,A,t»} 
890 NEXT IFAS--D-TMENP0KE50001 B Q0T0O90O 
895 POKE50001.1 
900 POKE500O0.0 

905 PR INT“CCLR>c OOWN»(OOWN »< DOWN» - FORA-it 03 PRINTO*C PEEKi 50000»*5 > POKESOOOO.PE 
EKi500001-1 NEXT 

910 IFPEEKC50000»<1B8IMENPRINT*6010905" 60T0980 
915 PRlNT-G0T09lS":Q0I09e0 

980 PRINT-CMOMEMDOWF»)- P0KE198.10 F0PA-631TO61O POKEA. 13 NEXT ENO 

915 PK INT -C CLP i ■ DOUN * < DOvN DOWN - OOwN '" F ORA-OT03: PPINT 915-'. 5»A t NEXT . PPINT "516 

- PPINT"536-.PPINT“561 - 

950 PPI NT-9A-CHPSI 31■ FDRA-50Q08T05001B IF PEEK C A » > OTHENNS—NS-CMRSC PEEK C A ») 

955 NEXT PPINTNSCHRS 1 31)*."PEEKC 50001> 

960 PPINT-CKOnEuDDVNJ- POKE198.3 FURA-631T0639 POKEA. 13 NEXT ENO 
998 POKES38BO. O 

lOOO PPINT“< CLR» CDOWN» C DOWN»(OOWN»(OOWN)(OOWN)( PGMT»(RGHT»C RGHT » < PGHT»C RQHT »C RGH 
t»var ooo vanta —- laser data- 
iooe Aisise 

1005 FQPX-lTOl RIADBS FORB-iTOLENCBSJ.CS-MIDSlBS.B.1) 

1010 :FCS<>"-“ANDCS0"."ANDCS<» -THENPOKEA. ASCcMIDSi 8S.B. 1 ) ' A-A-l NEXT NEXT 
1015 IFCS--.-THENPOKEA.13.A-A-l NEXT NEXT 
1080 1 FCS—-#“THENPOKEA . 0 A-A-l NEXT NEXT 
1085 IFCS--I -THENPOKEA 31 A-A-11 NEXT NEXT 

1030 DATA"RUN_»**»*•-••••••••—••••*••»• L t ST_**•••••••••••••«••♦*••»»» - 

1035 OATA-NEw ..................... 

1010 DATA-LOAO Si .B-••••••»•••«•*•»OPENl.8, 15. I V: :CL0SE1-«*•«••*»* 

1015 OATA-SKRIVET av TOMAS vIBERCi***—***—. 

5000 FORA—010177 1 REAOB P0KE19393-A.H NEXT 

5010 DATA1690.191.890.198.180.169,3.191.80.3,169.193,191,81,3,88.96.168.1,173 
5015 0ATA810.138,801.0.80B.103.169.9,197.197.810.81.169.5.197.19-\ 890.87 .169.6 
5080 0ATA197.197.810.33.169.3.197.197.890.39.76.13.831.836.111,8,810 13 169 0 
5085 DATA133.850.76.115.193.836,191,8.810.38.169.30.133.850.76.115.193.836,191 
5030 QATA8.890.33,169.60,133.850.76,115,193.836.111.8,810.88.169.90.133.850.76 
5035 DATAI15,193.169.180.133.850,76,115.193.169.150.133,850,76.115.193,169.180 
5010 DATA133.850.76.115,193.169.810.133.850.76.115.193.169,198.133.851,160.11 
5015 DATA!36.177,850.153,l19.8.198.0.808.816.169.10.133.19B.838.8l0.198.169.9 
SOSO DATAtOl 850.133,850.173,810.198.801,3 810.3.76.19.e3l.169.0.11i.810.198.76 
5055 0ATA19.831.0 

5060 IFPEEKC53880J-810THENSY999393.ENO 
5065 RETURN 

READY. 
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TO Yl * 
fUR XSk -0 TO Vi» 
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55T ^-tt.cÄ-v* 


WINDCV 


IP OXOfS 0.4 

SIN(XVP%«pf j 


Dctu program ritar monster med hjtlp 

■v olika matematiska funktioner. Pro 
grammet ar gjort för Atari ST Fastbask 
men kan ganska latt konverteras till an 
dra språk och datorer om man andrar 
upplösningen, MARCOL-och plot- in¬ 
struktionen och eventuella REPEAT- 
UNT1L (vantar på tangcnttryck för au 
man skall kunna se hela bilden utan au 
denna störs). 

Taurc mönster får man om man 
ökar variablen F*. X!» och Yl* ger 
upplösning hoiisontalt och vertikalt re¬ 
spektive. P» och Q» år mellanvaria 
bler för au göra bcwråkningcn snab¬ 
bare. Y* och X* ar loopvariablcr för 
puelberakningen. Alla år hcltalsvaria- 
bler för au berakningama skall gå snab- 


I fårgkommandot MARCOL kan 
man prova olika matematiska funktioner 
LCX. 

COS(Y*/Q»»PI*2) , SIN(X*/P»*PF) 

eller 

SlN(COS(Y«Q% »PJ *2))*COS(SIN<X 
*/P%*PI)) 

Vanationsnkedomen ar enorm. 

Observera att om nktig symmetn 
skall emås skall en funktion med OOS 
som första funktion gå till Pl*2 medan 
en SIN-funktion skall ha Pl som slut- 
vårde. 

MARCOl. instruktionen ger färgen 
för varje pixel och denna instruktion 
varierar från dator till dator 

Observera au FastBasic anvander 
tecknet som markering for remark 
(REM) 


Av: 

T ino 

Johannesson 

Hässleholm 


MÖNS TER 
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IÄSEÄ 1 ** 

IBtO f3iY-J*4lO»OtO-I»W*-.«5«W-.«9»Tf 


Del här spelet är ganska långt men 
tänderna och värm upp fingrarna så går del 
bra! 

Spelet är ett slags sportspel med fem 
grenar: kulstötning, längdhoppning, 
hoppning, 100 meter samt 110 m häcklq 

Av: Markus Pohjanen 
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Ett program från: Airgraphu 


Virldens råttor står inför en stor kris. den självutnämnde dikt 
Gusten, har gett order om an alla råttor skall tillfångatas. Rån 
en år svaga och blir allt fäne 
Din uppgift är an samla heliga ostar som skall ge ditt råttfolk ny kraft att 
försvara sig. Äregirig som Du är tänker du främst an samla så många ostar 
så att du skriver ditt namn i historien som 'The biggest Rat - ever!" Men 
se upp för det gröna gräset - det innehåller radioaktivt nedfall från Tjemo- 
byl! 
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EEEEEEEE med RUN. 


SPRITE 

MACHINE 

Av: Johannes Eriksson 


Hej! Detta är en enkel spritc-editor som gor det lätt an skapa 
egna spritar. Du får en stor arbetsyta dar du kan släcka eller 
tända pixcls samtidigt som du kan se hur spriten ser ut i natur¬ 
lig storlek. Du kan sedan välja att skriva ut spritens data på 
skärmen eller på skrivare och får då med såväl pokeadresser 
som värdena för spriten. 

Knappa in programmet, spara det på band eller disk och 
följ sedan menyn som kommer upp när du kör programmet 
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Programlistning i 
maskinkod för 
tangentbordsdriver. 

KEYSHIFT.ASM 1986-07-11 

Programmet lägger ' keytahlen' ovanför displaybuffertcn och 
ställer om nödvändiga pekare. Informationen som läses ut till 
de tre hash-arraycrna för ' unshift'shift' och ' caps-lock ' är 
ordnad på ett självförklarande sätt för att göra det lätt att göra 
ändringar. 


D e( säljs ganska friskt med assem- 
blatorer ull ATARI ST. Hela 
landet verkar fyllt av nya för¬ 
mågor som bestämt sig för att skriva ett 
bättre spel i maskinkod. För de av Er 
som läst igenom manualen och nu vet 
vad till exempel "move" betyder kommer 
har en enkel, men synnerligen praktisk 
tilllämpning. 

En tangentbordsdriver låter dig näm¬ 
ligen ha vilka tecken du vill var som 
helst på tangent bordet. Svenska A.Ä.Ö 
är de mest eftertraktade tecknen på en ST 
i Sverige idag. 

Med hjälp av det här programmet kan 
du. i princip, göra upp vilken tan- 
gentbordsuppsättning du själv vill. För¬ 
utsatt att du har en fungerande assembler 
förstås. MetaComco s assemblator har 
använts ull detta program. 

Allt man i princip behöver göra är 
att lagga upp ue tabeller på vilka tecken 
man vill ha normalt, shifted och i CAPS 
mode och sedan anropa "Keyboard Shift"- 
r un nen i XBIOS. Rutinen behöver bara 
ha tabellernas ue adresser pä stacken. 

När sedan rutinen har kört färdigt är det 


fullt möjligt att andra program skriver in 
sig på tabellens plats. Om detta händer är 
det omöjligt att veta vilka tangenter som 
leder till vilket tecken. För att undvika 
denna misär har författaren listigt sökt 
upp bildminnesadressen och lagt tabellen 
OVANFOR bildminnet. Få program 
kommer ju dit. Denna listighet leder till 
att programmet inte fungerar så bra på en 
Mega4 ST. men man kan ju inte få 
allt... 

I det här programmet ser man 
exempel på en prydlig programmerings- 
stil. en mycket viktig aspekt hos ett 
program. Åtminstone om man vill att 
andra skall läsa det. Eller om man själv 
ska kunna läsa programmet en vecka 
senare. 

Författaren som skänkt detta och 
flera liknande små program till vårt 
fromma heter Rudolf Rydstedt. mest 
känd från Radio och Press för att han 
håller på att doktorera på lindemän vid 
institutionen för Nordiska språk. Just 
det. inte nog med att Hasse & Tage s 
alster doktoreras på. det görs dessutom på 
en ATARI ST' 
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tn 

C8 «0« 

esc m 

SPACE »4« 

DEL «9* 


| t*yl«lo: 
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O*.» ■fV 

V dc.b '»V 6 '''»’ 


dc.b 
dc.b 
dt.b 

dc.b MVLVL’ 
di.b '»VbW 

dc.b ’»VAV*' 

dc.b '”.»V" 

dt .b bUL.HU.aU 

d<.b '»V'V*' 

di.» 
dt.b 
di.» 

di.» v,*r.*r 

di.» 

I di.» 
i di.b 

I dt.b\V<V-' 

I dc.b '.V>V-' 

1 di.» 

I dc.b au.au.au 
1 dc.b »a,NU,IM- 
I dt.b aU.HU.aU 

dc.b SPACE,SPACE.SPACE 

I dc.b au.au.au 
. dc.b aU.NU.NU 
I dt.b NU, NU, NU 
, dt.» aU.HU.IM 
I dt.» NU,IM,AU 
I dc.b >M,IM,NU 


dt.b tU.AU.AU 


JZ 7 dl.b HU.aU.NU 

i \r di.» iu.nu.iw 
; 1 i 1 dc.b au,nu,au 

VI 


« 20: d 
t 21: • 

« 22 : | 

• 23: b 
» 24: J 
. 25: l 
. 2b: l 
« 27: i : 

. 2«: « ' \ dc.b tM|NU,IM 

• 21: ' ' ’ di.» HU.NU.AU 
. 2Al SH.l 1 di.b AU.AU.M- 

• 21: I * » , di.» AU.AU.AU 

t 2C: x \ di.b IM,IM,IM 

.2»:. . dcbAU.IM.AU 

# 2E : c 1 dc.b '-V-’» 

l dc.b IM,IM,NU. 
\ dc.b WL.WL.WL 
I dc.b NU,IM,NU 
1 di.b 

| dc.b AU,**-,AU 


»3,-1»»* 
u4,-t»p> 

114 

114,s» 

-<*> 


. | 

:r.;.r..rr..iÄ-.-. t 


MVf.l 

add.l 


•3,-(»»> 
•2 t -l*»l 

114 

I2,s» 

I32»1024,d0 
d4>,il 
d0,*2 
i 40,43 
1128,*2 
»25b,*3 

|K*yl»lo,bS 
1384,*5 
1127,d3 


» lut. K*yPoi«t«f»: 
. UdsLotb 
« SbiU 
i Unsbi It 


. Uit. KdyliHoPout*» 


»•t»Aov*lood: 
•ov».b 
•ovt.b 
•ov».b 
dbl 


-U5),-UI> 

-U5),*U2> 

-Ii5>,-4*3> 

d3,D*t*«tov»Loo9 


•ov».1 •».-<*») 


I 
I 

• bodily SysPointtfi •teylbbl»' ) 


dc.b AU.AU.AU 
dt.b ESC,ESC,ESC 

dc.b 'iWJ' 
dc.b *iV"V 2 
dc.b *3-,'f,'3’ 

dt.b •4*,M',-4- 

éc.b 'V.'V,'V 
dt.b ’bV*Vb* 
dt.b *7-,'»', , 7' 
di.b 'I',' 
dt.b 'V.MV8' 
dc.b • 0 *,')',’ 0 ' 
dc.b 
dt.b 

dc.b IS,»S,8S 

dt.b Hl,Hl,»» 

dt.b V,•••.•» 
dt.b V.MIV»' 

dt.b , » , i’ f 't ,£ 

dt.b '»V«V*' 

dc.b 'tVTVP 

dt.b 

dt.b v,'r,'r 

dt.b '»•,*I*•' 
dc.b •.V0',M>’ 
dt.b y, 

dt.b 

dt.b '»ViV*' 

dt.b C8.C8.C8 
dt.b nu.nu.hu 

dt.b 

di.b 


0: 

l: ESC 

i 2: » 

i 3: 2 

i 4: 3 
» 5: 4 
i b: 5 
» 7: b 
» 8: 7 
» 9 : 8 
• ki 9 
i I: 0 


i 12: • 


t n i»ff»otr'i9 # / 

I 


t Vit r 
» 14: t 
. 15: 1 
t tb: « 

» 17: » 

» 18: o 
» 19: 9 

• tåt t C t 

• ihlll 

• ic: an 

• II: CTRL 

» 1E: » 

t lf: t 


. 2f: v 
. 30: b 
• 31: • 

. 32: • 

» 33: ,< . 

» 34: . > • 

.35:/’/ i 
. 3b: SH.B ' 

. 37: \ 

. 38: ALT ' 

. 39: SPACE \ 

. 3A: C.LOCK 
t 31: H 1 

. X: f2 . 

. 38: n \ / 

. 3£: T4 I ~ 

Cx 

dt.b au,au,IM 
dc.b au.au.au 
dc.b »M, 4UL.au 
dt.b DEL,»EL,»El 
dt.b au,au,IM 
auL.au, au 
dc.b au.auL.au 
dt.b au,au, im 
dt.» au,au,au 
dt.b au, au.au 
dt.b au.au.au 
dt.b au,au, im 
dc.b au.au, M. 
dt.b au.au.au 
dc.b au.au.au 
dt.b au.au.au 

dc.b 

dt.b au,au, im 
dc.b au.au.au 

dt.b MV<V<« 

dt.b 

V dc.b */V/V/' 

dt.b 

dt.b , V, , V, , V 
dc.b ••vev»' 
dt.b »»'.•r/y 

dt.b '4*,’4',*4* 

dc.b •V, , V,'5’ 

dc.b 'k' 

dt.b 

dc.b , 2', , 2','2' 

dt.b *3*»*3*.*3* 
dt.b '0V*V0' 

dt.b 

dc.b CR.CR.C8 
dc.b au.au.au 
dt.b au,au,au 
dt.b au,au,au 
dc.b au.aui.au 
dt.b au.au.au 
dt.b au,au,aui 
dc.b au, auL.au 
dt.b au.au.au 
dt.b au,au, im 
dt.b nu.au.au 
dc.b au, im, au 
dt.» au.au, im 
dt.» au.au.au 


» 40: Ft 
• 41: F7 
. 42: r» 

» 43: F9 
. 44: Fl» 

» 45: 

« 44: 

» 47: MOBE 


• 4A: - ai»l 
i 41: <AM 


» 50: vAM 

• 51: 

l 52: laSEPl 
. 53: OCLETt 

• 54: 

» 55: 

• 54: 

• 57: 

• 58: 

• 59: 

• 5A: 

• 51: 

« 5C: 
i 50: 

« 5E: 

» 5F: 

• 40: \ t \ 

i 61: UbOO 
t 42: HELP 

• 43: I NUb 
. 44: ) «U" 

« 45: / NUb 

• 44: • aua 
» 47: 7 «U" 

. 68 : » NWI 

• 69: 9 HUb 

• 4*: 4 MUb 
. 61: 5 IW 

i 4C: 4 aUb 

• 6 »; I aub 
. 4E: 2 W" 
i 4F: 3 HUb 

. 70: o aub 

» 71: . aub 
. 72: ».*11! 


• 78: 

» 79: 

« 7A: 

» 71: 

» 7C: 
» 7D: 
» 7E: 
» TT: 


| ESO KtSHin.ASb 8»»I»IBII»»»8«»«'** 
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Av: Mattias Meyer , Aby 


Med detta program kan man arbeta på två. av 
varandra oberoende, skärmar. Jag gjorde pro¬ 
grammet for att det så ofta uppstår problem 
och andra komplikationer när man skriver 
program. Ofta glömmer man bort variablers 
värde etc och om man skriver upp dem på 
lappar kan dess läa komma bort. 

Med detta program löser man problemen 
genom att skriva notiser på en av de obe¬ 
roende skärmarna. Man kan även använda det 
för att arbeta med två delar av ett program 
samtidigt. Du kan helt enkelt lista ena delen 
av programmet på den ena skärmen och och 
den andra delen på den andra skärmen. Sedan 
skiftar du skärm med Fl. Det finns många 
bra möjligheter som öppnar sig med detta 
program. 

Programmet upptar området SC000 till 
SCODB plus att de efterföljande två Kbyte 
används för lagring av skärmen som ej är ak¬ 
tiverad. Observera att första gången du akti¬ 
verar den andra skärmen syns en hel del oväl¬ 
komna tecken men detta avhjälps med au 
trycka SHIFT ♦ CLR/HOME samtidigt. 

Teckenfärgen kan du manipulera genom 
au ändra värdet på första kommandot i rad 
21. Starta programmet med RUN och vänta 
några sekunder tills det är färdigladdat och ak¬ 
tiverat 



o PEn 

I REN 
5 REn 

3 RErt 

4 REn 

5 PEn 

6 REn 

7 REn 
0 REn 

9 REn 

10 REn 

II : 

12 PRINTCHRSC147J:P0KE53291.6:PQKE53290.14:P0KE646.14 

13 PRINT5PCC 13)“ , - - 

14 PRINTSPCC13)“(ANTECKNINGS 1“ 

15 PRINTSPCC13)“ w BLOCKET , w " 

16 PRINTSPCC 13) “(RGHT )<RGMT) --•(OOWN)- 

17 PRINTSPCC16)“CRUS)LADDARCOFF)" 

10 F0RI-49152T04941S 

19 REAOA.PQKEI.A:X“X*A:P0KES3280.A:NEXTI 

20 IFX<> 38638THENPRINT"CHQnE)CRUS) FEL I OATA COFF)" 

:ENO 

21 P0KE49152*214.14:P0KES32S0.14 

22 SYS 49152 

23 PRINTCHRSC147):PRINTSPCC47) **••• ANTECKNINGSBLOCKET •••“ 

24 PRINTSPCC6)"AU nATTIAS nEYER I JAN. 1907" 

25 NEW 

26 DATA 76.2S1.192.162.0.134.251.162.194.134.2S2.162.232.134.253.162.197 

27 DATA 134.254.162.0.134,102.162.199.134.103.160.0.177.251.145.102.165.252 
20 DATA 197.254.240.22.165.251.201.255.240.24.230.2S1.165.182,201,255.240 

29 DATA 20,230.102.169.0.201.0.240.224,165,2S1.197.253.200.220.240.24.169 

30 DATA 2S5.133.251.230.252.169.0,201.0.240.220.169.255.133.102.230.103.169 

31 DATA 0.201.0.240.216.96.165.203.201.4.240,4.76.49.234,96.169.0,141.4.192 

32 DATA 169,4.141.0.192.169.0.141.12.192.169,0,141.16,192,169,0.141.20,192 

33 DATA 169,194.141.24,192.32,3.192.169.0,141,4.192.169.199.141.0.192.169 

34 DATA 232.141.12.192.169.202.141.16.192.169.0.141.20.192.169.4.141.24.192 

35 DATA 32,3,192.169.0.141.4,192.169.194.141.0.192.169.232,141,12.192.169 

36 DATA 197,141.16.192.169.0.141,20.192,169.199.141,24,192.32.3,192,169.0 

37 DATA 133.251.169.216.133.2S2.160.0.169.1.145.2S1.230.251.208.250.166.252 
30 DATA 224.210.240.0.230.252.162.0.224,0.240.232.230.252,160.0,145.2S1.200 

39 DATA 192.232.200.249.76.49.234,96.234.120,169.94.141,20.3.169.192,141 

40 DATA 21.3.00.96 


ANTECKNINGS-BLDCKET 


AU NATTIAS NEYER 
I JAN. 1907 





























THE 

CLEANER 


Av: 

Per Tufvesson 
& 

Jesper Johansson 
Staffanstorp 






Gillar Du aa städa? Inte det! Kanske 
blir det lite roligare med hjälp av det 
här programmet. Tänk bara aa kun¬ 
na ropa: "Jag häller pä au städa!!..' 
när nägon förälder undrar vad Du 
sysslar med! 

I spelet är det din uppgift att 
städa huset innan energin tar slut. 
Uppe i skärmens högra höm finns 
en kana som visar var du är och var 
du har varit. Spelet är skrivet helt i 


Basic och man kan därför lätt ändra 
banorna pä följande vis: 

9001 Data 0,1.0,1,12,13,3,7.6.5.9 
,9,7,2,151,5,2:REM Rum 1 

De första fyra talen anger dörr¬ 
öppning, första upp, andra ner. aed- 
je vänster och fjärde höger. De tio 
tal som kommer efter anger var 
plattformarna skall ritas ut. Det 


uedje sista talet anger vilket grafiskt 
tecken man skall plocka, de sista 
var saken skall befinna sig. 

Rummen är ordnade pä följande 


01,02,03,04.05 

06,07,08,09,10 

11.12.13.14,15 

16,17.18,19.20 


Spelet är enkelt att komma in i. 
Knappa in det och spara det pä band 
med kommandot: 

SA VE 'the Cleaner" L1NE 10 
$ä kommer det an starta av sig själv 
nästa gäng du laddar in det. Vissa 
tecken i listningen är i grafisk mode 
och längs ner i listningen ser du 
vilka bokstäver som använts och 
hur de ser ut i grafisk mode. 

Lycka till! 
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SYNTH-TRUMMOR 


Hci ! Hlr har jag cuprogram som jag gårna vill fl med i Svenska Hemdator Nytt. Det heter “Synth-trummor' och 
Ir för Commodore 64. 

Knappa in det och spara det p4 band eller disk. Skriv RUN och sedan kan du spela genom au trycka ner knap¬ 
parna 1 -5. Det går att Andra trumljuden genom au trycka på '8*. 


1 2-10;X-189:C-8;U-65:B-855 N-189:G0T03 
3 QOTOeOOOO 
s S-S5878 
6 P0KES*85,IS 
10 PR I NT "(Cl.lt ) * 

90 PRINT *(OOMN ) <OOMN)(OOWN)(OOWN) 

SYNTM TRUMMA" 

100 PR t NT‘(OOMN K OOWN) RMMNO KNAPPA 

RNA 1,8,3,5,S” 

110 PRINT-(DOMN) FOR OLIKA TRum- 

LJUO.- 

180 PRINT‘(OOMN) B FOR ATT ANORA IRUM 

rt-LJUDEN. “ 

1000 GETA* IFA*—"TMEN1000 
1010 IFAS—1‘THENS010 
1080 IFAS-~8‘THCN5080 
1030 IFA*—3-TMEN5030 
lONO IFAS—5"THEN5O50 
1050 IFA*—S-TNENSOSO 
1070 IFA*--B-TMEN7000 
1100 GOTOIOOO 

5010 P0KES5883,0. POKE55880, C i POKE55883, V 
5015 GOTOIOOO 

5080 P0KE55876.0:P0KES5873.2,P0KES5878,X 
5085 GOTOIOOO 

5030 P0KES5876,0.POKCS5873,2*10:P0KES5876, 
X 

5035 GOTOIOOO 

5050 P0KES5876.0.P0KES5873.2*80;POKES5876. 
X 

S05S GOTOIOOO 

5050 PQKES5290,0iP0KES5887,B POKE5589Q.N 
SOSS GOTOIOOO 

SOBO POKES5883.0; POKE S*1880, 10: P0KES*te93.65 
5065 GOTOIOOO 

7000 PRI NT 

7001 PRINT‘(CL*>* 

7008 PRINT‘lOOWNUOOWNHOOMNKOOWN) 

ANORA TRUMMOR" 

7003 PRINI‘(OOWN)(OOWN)(OOWN) TRLm 

A 1.TRYCK PA 1- 

7005 PRI NT"(OOWN) TRUMMA 8.3 OCX 5. 

TRYCK P» 8‘ 

7005 PR I NT ‘ ( OOMN ) TRUMMA 5. 

TRYCK PA 3* 

7015 6ETAS;IFAS—"TMEN70X5 

7015 IFA»—3-THCN9000 

7016 IFA*—l-THENBOOO 

7017 IFAS--8-TNEN7019 

7018 60T07001 

7019 PRINT-CCLR)- 

7080 PRINT‘(OOWN)(OOWN)(OOWN)(OOWN) 

ANORA TRUMMA 8,3 OCH 5* 

7030 PRINT:PRINT 

7050 PR t NT * A»AT TACK/OECAY“ 

7055 PRINT 

7050 PRINT* S-SUSTA1N/RELCASE" 

70S8 PRINT 

7055 PRINT- (J—(JAGFORM" 


7055 PRINT 

7056 PRINT* T- 

7057 PRINT 

7058 PRINT- SPACE- 

7059 PRINT 

7060 SETw*iIFW*—--THEN7060 
7068 IFW»-" -TMCNIO 

7065 1FWS--A-THEN7100 

7067 IFW»-“S"THEN7ISO 

7068 IFW*—T-IMEN7500 

7069 IFW*--U*THEN7300 

7070 G0T07060 

7100 PRINT- AITACK/OECAY * 

7110 lNPUT* (0-855) ",AO 
7180 IF AD>8S5THEN7019 
7130 GOT07800 

7150 PRINT* SUSTAIN/RELEASE * 

7160 INPUT- (0-855) '.SR 

7170 IFSR> 85STHEN7019 

7800 POKE55877.AO 

7810 P0KES587B,SR 

7880 GQTQ7019 

7300 PRINT* (JAGFORM- 

7310 INPUT* (17.33.65.189) "iX 

7380 IF A0»8S5THEN7019 

7330 G0T07600 

7500 PRINT" TON* 

7580 INPUT* (0-830) "Z 
7530 IF AD>830TMEN7019 
7600 GOT07019 
8000 PRINT 
8010 PRINT-(CLR)’ 

8080 PR1NT"(OOWN )(DOWN)(OOWN)(I 
ANDRA TRurrtA 1" 

8030 PRINT;PRINT 
8050 PRINT* 

8055 PRINT 
8050 PRINT" 

8055 PRINT 
8060 PRINT" 

8065 PRINT 

8066 PRINT" 

8067 PRINT 

8068 PRINT" 

8070 GETW»; I FwS—‘TMEN8070 
8080 IFW»--A-THEN8100 
8090 IFW*—S-TMENBI09 
8038 IFW»-*T"THEN85O0 
8093 IFW»—V-THEN8300 
8095 IFW»-- "THEN10 
8095 GO108070 
8100 PRINT- AITACK/OECAY • 

8108 INPUT* (0-855) ";AU 
8105 IF A0>2SSTHEN8000 
8107 GOT08112 

AIOA PRINT- 9USTAIN'»ELEASE 

8110 INPUT" (0-855) " S 9K 

8111 IFSR»2SSTHEN8O00 
8118 P0KE59889.A0 


A-ATTACK/OECAV" 
S-SUSTAtN/RELEASE* 


(J—(JAGFORM" 


SPACE-T1LLBAKA- 


8115 P0KE5588S.SR 
8119 GOT08000 
8300 PRINT" (JAGFORM" 

8310 INPUT" (17.33.65.189) 
8380 IF AO»85STHEN8000 
8330 G0T08000 
8500 PRINT" TON" 

8580 INPUT" (0-855) *iC 
8530 IF AO»8S5THEN8000 


A—ATTACK/OECAY" 

S“SUSTAIN/RELEASE" 


SPACE-TILLBAKA" 


9000 PRINT 
9010 PRINT-(CLR)" 

9080 PRINT"(OOWN)(DOWN)(DOWN)(OOWN) 
ANORA TRUMnA S" 

9030 PRINT:PRINT 
9050 PRINT" 

905S PRINT 
9050 PRINT" 

9058 PRINT 
9055 PRINT" 

9055 PRINT 

9056 PRINT" 

9057 PRINT 
90SB PRINT’ 

9059 PRINT 

9060 GETW*:IFW*-"-THEN9060 
9068 IFW*-" “TMEN10 
9065 IFW»—A-TMEN9100 

9067 IFW*—S-THEN91S0 

9068 IFWS—T "TMEN9500 

9069 IFW*-"U-TMEN9300 

9070 60103060 

9100 PRINT" ATTACK/OECAY * 

9110 INPuT" (0-8SS) ";AD 
9180 IF AO»8SSTHEN9000 
9130 GOT03800 

9150 PRINT" SUSTAIN/RELEASE 
9160 INPUT" (0-855) "iSR 
9170 IFSR>8S5TMEN90O0 
9800 P0KES5891.A0 
9810 POKE55898.SR 
9880 00T09010 
9300 PRINT" (JAG FORM- 
9310 INPUT* (17.33.65,189) * 

9380 IF A0>855THEN9OO0 


.B 


9500 PRINT* TON- 
9580 INPUT" (0-855) 
9530 IF AD»8S5TMEN9000 
9600 GOT09000 
80000 P0KE55877.8 
80010 POKES587B.O 

80015 P0KE55891,ti 

80016 P0KES5898.1 

80017 PQKE55885.1 
80019 P0KES588V! 


TECKEN TILL RAM 


Hej! När jag tittade igenom mina gamla program så hittade jag en jattebra maskinkodsru- 
tin som flyttar tecken från ROM till RAM supersnabbt. Jag tror alt programmet flyttar 
skarmminnet till adress 34816. Programmet flyttar över hela teckenuppsättningen (255 
tecken). Jag har gjort ett Copyright tecken (©) för att ni skall se hur det fungerar. 

Niklas Kring, Södertälje. 


15 FORL»679TO730tREADY:POKEL,Y sNEXT 
17 SYS679:P0KE52,128tP0KE56,128 

1? POKE 36578 t PEEK(36578)0R3iP0KE36576» < PEEK(56576)AND252)OR 1 
21 P0KE648i 1361P0KE53272 , 321PRINTCHR0<142)J*<CLR>" 

23 DATA120r165,1,41,231.133,1,169,0,133,251,169,208,133,252, 169,0 

24 DATA 133,233,169 

25 DATA 128,133,254, 160,0,177,251,143,253,200,192,0,208,247,230,252 

26 DATA230.234,163 

27 DATA232,201,216,208.237,163,1,9,4,133,1,88,96 
30 REM NU DEFINERAS COPYRIGHT TECKNET <C)! 

32 FORBY» 0TO7t READA iPOKE32768*BY,AiNEXT 
34 DATA 126,129,189,161,161,189,129,126 
36 REM 0-<C> 
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De flesta som har många program 
på sina disketter har upptåckt att det 
behovs något slags register över 
dem. Det har programmet gör ett så¬ 
dant register genom att låsa in nam¬ 
nen från diskettbiblioteket. Annars 
brukar man ju få situ och knappa in 
namnen för hand och detta blir gans¬ 
ka tidsödande. Programmet, utom 
sorteringsrutinema som snabbats 
upp med maskinkod, ar skrivet i 
Basic. Det tar ca 20 sekunder att sor¬ 
tera upp $00 namn och totalt kan 
registret innehålla 1500 namn sam- 
tdigL Programmet tar upp 19 block 
på en diskett och det tar en liten 
stund att knappa in. 

Egentligen behövs det inga in¬ 
struktioner men har du kört fast kan 
det vara bra att ha lite hjälp. Efter 
att ha kört RUN kommer en meny 


upp. Dår har man sju rutiner att 
vålja mellan och genom att trycka 
på siffrorna 1 till 7 kommer man 
till de olika rutinerna. 

Försu gången man kör pro¬ 
grammet våljer man MATA IN 
(1). Då stoppar man in en diskett i 
diskdriven och sedan skriver man 
ett specifikt namn eller nummer 
för disketten, ett sk "disklD" Det 
får vara max $ tecken långt, t ex: 
"127 A". Efter att ha tryckt RE- 
TURN böljar programmet att låsa 
diskettbiblioteket. Nu får du vålja 
om du vill ha med filerna i regis¬ 
tret genom att trycka (J)a eller 
(N)ej. Efter det frågas det om du 
vill fortsätta att mata in nåsu dis¬ 
kett. Når du är nöjd med inmat¬ 
ningen kommer du tillbaks till me¬ 
nyn. Nu kan du SUDDA UT (2) 


namn ur registret om du fick med 
några för mycket vid inmatningen. 
Skriv in namnet du vill sudda ut 
och tryck på RETURN Sedan frågas 
det efter om du vill sudda ut fler 
namn, om inte så kommer du till¬ 
baks till menyn. Alla namnen lig¬ 
ger i den ordning som du matade in 
dem. 

Nu kan det vara idé att SOR¬ 
TERA (3) dem. Antingen efter 
namn eller disklD. Efter det så år du 
tillbaks till menyn igen. Vill du 
spara ditt register på diskett våljer 
du LADDA/SPARA (4) Efter 
att ha tryckt (S)para skriver du in 
ett lämpligt namn för ditt register 
och nåsu gång du vill använda re¬ 
gistret laddar du bara in dm fil och 
förnätter Lex. med MATA IN nya 
namn. 


Vill du ha en UTSKRIFT (5) 
av namnen i registret så väljer du 
mellan utskrift på skärmen eller 
skrivare. Du kan sänka scrollhastig- 
heten på skärmen genom att hålla 
nere CTRL-knappen. Vill du stoppa 
listningen helt trycker du på RUN/ 
STOP men sedan måste du skriva 
Basic-kommandot CONT och tryc¬ 
ka på RETURN för att fortsåtu. 

Lycka Ull med inknappningen 
eller beställ en färdig diskett för 50:- 
direkt från mig: 


Henrik Engstam 
Ljunglidsvagen 1 
331 00 Värnamo 


10 F0RI-99152T099SO?:READA:P0KEl.A NEXTI 
20 DATA169.69,133,168,32,152,152,165,20, 

201 . 5 . 199 , 3 , 76,0 

22 0ATA17S.92,133,169,32,152,152,165.20, 
133,139,198,139,165,21 

29 0AIA133.190,169,0,133,191.133,192,133 
.170,32,253,179,32.158 

26 0ATA173,166,170.165,71.199,180,232,16 
5,72,199.180,230,170,230 

2b DATAl70,165,170,197,169,208,229,32.15 
2.192.165,20.91.127,133 

30 GATA171,32.162.192,32,179,192,160,2,1 

133, 189, ir». 299 

»-UOIA133.19J,. 13§, 177^297,133,188,177,2 

99,133,190,189,136, 177.1*17 

39 DA1A203,239.-13.6,290,9.36,168,177,299 

133,170.197,171.199 

36 0ATA20.169.171,177.188.209.190,199,12 
.206,7.200,196,170,199 

3B DATA293.80,3.32,186,192,32,200,192,19 


9.189.32.222.192.199 

90 DATA181.96,32,253,179,32,158,173,32,2 
97,183.96.162,2,181 

92 DATA179.199,296,199,298,202,208.297.9 

6.160.3.230.299.208.2 

99 DATA230.250,136,208,297,96,162,2,181, 

298.199.296.181.190.199 

96 DATA79,202,208,29S,96,230,191,208,2,2 
30,192,165,192,197.190 

98 DATA208,8,16S,191,197.139.208,2.56.96 
,29.96,165,180.197 

50 DATA297.208.6.185,181,197,298,290,32, 
166,169,181,179,133,252 

52 DATA133.259,202.181,179,133,251,133.2 
53,32,75,193,32,S3,193 

59 DATA165,80,206,2,198,81,198.80.202,20 

8.226.165.139.208.2 

56 DATA198,190.198.139.165,190.208.9.165 
.139.290.25.169,0,133 

58 DATA191.133,192,166,169,160,3,296.178 
.208,2,296,179,136,208 

60 DATA297,202.202,208,291,29.96,56,96.1 
60,0,177,2S1,72,200 

62 QATA192,3,208,298,136,177.253.195,251 
,109,195.253,136,16,296 

69 DATA96.230.80.208.2.230,81.160,3.29,1 
65.253.101.80.133 

66 DATA2S3,165,259,101,81,133,259,136,20 
8,290,96 

100 POK ES3280,7;POKES3281.13:DIMNS(1500) 
OIMOSCISOO) 

110 print-cclrxblkhdownudownhrus)^ 

120 PRINT"(GRY1)CRUS) D 1 S K e’t 

T I N D E X COFFJ-; 

130 PRINT“(BLK)(RUS ) 


190 PRINT"(DOWN> 
150 PRINT"(DOWN) 
160 PR I NT"CDOWN) 
170 PRINT"(DOWN) 
180 PRINT-CDOWN) 
190 PRINT"(DOWN) 


1 - MATA IN" 

2 - SUDDA UT" 

3 - SORTERA" 

9 - LADDA/SPARA" 

5 - UTSKRIFT" 

6 - DISKETTBIBLIOTEK 


200 PRINT"(DOWN) 7 - AUSLUTA 1 
210 PR I NT " ( DOWN ) ( DOWN ) ( RUS ) 


220 GETAS:lFAS-""THEN220 

230 1FASC(AS)< 990RASC(AS)> 55THEN220 


290 0NUALCAS)60T01000,2000.3000.9000,500 
0,6000.7000 

1000 PRINT"CCLRXBLK)(OOWN)(DOWN)(RUS) 

1010 PRINT“(GRY1)(RUS) HAT 

A I N (QFF)"i 

1020 PR INT“(BLK)(RuS) 

1030 INPUT"(HOME)(OOWN)(DOWNXDOWNHDOWN 
)(DOWN)lDOWN)(DOWN) SATT I DISKETTEN.5KR 
IU (RuS)OISKlD(OFF) ",DS 
1090 IFLEN(D*)~OORLEN(D*)>STMEN1030 

1050 PPTNTTAfX2i )"rnOUN-»HPTA IN*» r»v»9)JC 

0KF>/(RUS)N(00WN)(BLU)“ 

1060 OPEN1.B.0."S":FOR I-1T027:BET•1,AS:N 

EXT I 

1070 NS-"":F0RI-lT09:GETnl,AS NEXTI 
1060 BETM ,AS . IFASO "B"THENU30 
1090 CLOSEl:PRINTTAB(9)~lBLK)(DOWN)EN OI 
SKETT TILL? (RUS)J(OFF)/CRUS)N"iP0KE19B, 
0 

1100 GETAS:IFAS--N-THEN110 
1110 1FAS-“J"THEN1000 
1120 G0T01100 

1130 GETni.AS:IFAS<>CHRSC39)THEN1130 
1190 GETni.AS:IFAS-CHRS(39)THEN1160 
1150 NS-NS*AS.G0T0U90 
1160 PR1NTTAB(7)NS; 

1170 BETAS:POKE198,1:IFAS-"N"TMENPRINTSP 
C(23-LEN(NS))"<BLK)(RUS >NEJ(BLU)" i G0T012 
00 

1180 IFASO “J"THEN1170 

1190 PRINTSPC(23-LEN(NS))"(BLK)(RUS)JACB 
LU)":N-N*l:NS(N)-NS:DSCN)-DS 
1200 6ETU1,AS.IFASO""TMEN1200 
1210 G0T01070 

2000 PRINT"(CLRUBLK)COOWN)(DOWN)(RUS) 

2010 PRINT"(GRY1)(RUS) S U o' 

DA UT <OFF>"; 

2020 PRINT"(BLK)(RUS) 

2030 INPUT"(DOWN)(DOWN) SKRIU PROGRAMNAM 
N (BLU)";NS X-0 

2090 X-X*l:IFX»NTMENPRINT"(BLK)(DOWN)(00 
WN) PROGRAMNAMNET EXISTERAR EJ":G0T02070 
2050 IFNS< >NS(X)THEN2090 
2060 N-N-l:FORI-XTON:NSCI)-NS(1*1):DS(I> 
-DS(1*1):NEXTI 

2070 PR1NTTAB(10)"(BLK)(DOWN)EN GANG TIL 
L’ CRUS)J(OFF)/(RVS)N":POKE198.0 
2080 GETAS;I FAS-“N"THEN110 
2090 1FAS--J-THEN2O00 
2100 GOT02080 

3000 PRINT“(CLR)(BLK)(DOWN)(DOWN)(RUS) 

3010 PRINT"(GRYl)(RUS) S 0 R 

T E R A (OFF)"; 

3020 PRINT"(BLK)(RUS) 

3030 PRI NT"(OOWNJ(DOWN) SORTERA EFTER ( 
RUS)N(OFF)AMN ELLER (RUS)D(OFF)ISKIO? <R 
US)N(OFF)/(RUS)D" 

3090 GETAS:IFASO"N"ANOAS<>"D”THEN3090 
3050 PRINTTAB(10)"(DOWN)CDOWN)UAR SNALL 
OCH UaNTAI" 

3060 IFAS-"D-THENSYS99152.2,N,0S(1).NS(1 
).0:60T0110 

3070 SYS99152.2,N,NS(1),0S(1),0:G0T0110 


3070 SYS991S2,2,N,N\(1),0S(1).0:GOTQllO 
9000 PRINT"(CLR)CBLK)(DOWN)(DOWN)(RUS) 

9010 PRINT”CGRY1)(RUS) LADDA 

/SPARA (OFF)"; 

9020 PR INT"(BLK)(RUS) 

9030 PRINT"(DOWN)(DOWN) (RUS)L(OFF) ADDA 

ELLER (RUS)S(OFF)PARA PA DISKETT? (RuS) 
L(OFF)/(RUS)S" 

9090 GETAS:1FAS< > "L "ANOAS< > "S"TMEN9090 
9050 I NPUT "i. DOWN )(OOWN) FILNAMN (BL 

IP ": r - ? 

9060 I FAS- "S"THEN91OO 

9070 0PEN1 , B,2,FS.INPUT*1 , N 

9080 F0RI-1T0N;INPUTni.NSCI)iINPUTni.DSC 

I):NEXTI 

9090 CL0SE1:GOTQllO 

9100 0PEN1.8.2, "lt: “*FS* ", S, W" : PRINTtl, N 
9110 F0RI-1T0N:PRINTni,NStI)t PRINTni , DSC 
l).NEXTI 

9120 CLOSE1:G0T0110 

5000 PRINT-lCLRMBLK)(DOWN)(OOWN)(RUS) 

5010 PR!NT"(GRY1)(RUS) U T s’ 

K R I F T COFF)"; 

5020 PRI NT"( BLK )( RUS) 

5030 PRINT" ( DOWN )( DOWN ) PA (RUS)S(OFF 

)KaRM ELLER (RUS)P(0FF)RINTER? (RUS)SCOF 
F)/(RUS) P (OOWN)C DOWN) ”:POKE198,O 
5090 GETAS:IFAS<>"S”ANDAS<>"P"THENS090 
5050 IFAS-"S"THENX-3 
5060 I F AS-"P"THENX-9 

5070 OPENi ,X:PRINTni,"(RUS) NR PROGRAMN 
AMN"SPC(19)"DISKID(BLU)“ 

5080 I FN-0THEN5110 

5090 F0RI-1T0N: IFI<lOTHENPRINTni, " 

5100 PRINTni. I" “NS(I)SPC(25-LEN(NS(I))) 
0S(1 ) .NEXTI 

5110 CL0SE1:PRINTTAB(10)"CBLK)(D0WN)EN G 
ANG TILL’ ( RUS )J(0FF)/( RUS ) N “ 

5120 GETAS.IFAS-"N"THEN110 
5130 IFAS-"J"TMENSOOO 
5190 GOT 05120 

6000 PR INT"(CLR)(BLK) (DOWN) (DOWN)(RUS) 

6010 PR!NT"(GRY1)CRUS) DISKETT 
BIBLIOTEK COFF)"; 

6020 PRINT"(BLK)( RUS ) 

6030 PRINT"(DOWN) SATT I DISKETTEN OCH 
TRYCK ( RUS ) SPACE C OOWN ) (DOWN )( BLU ) " 

6090 GETAS: IFASO" "THEN6090 
6050 OPENI. B.0."S" : GETM.AS:GETnl . AS 
6060 GET*i.LS:GET»l.LS:IFST-69THENCL0SE1 
:GOT06100 

6070 GETnl , LBS«GETnl . HBS:PRINTASC(LBS*CH 
RS(O)) *256*ASCC HBS*CHRS(0) ) ; 

6080 GETn 1. AS : 1 FAS- “ "THENPRINT"" : G0T0606 
O 

6090 PR 1 NTAS ;: GQT060B0 

6100 PRINTTAB(10)"(BLK)(DOWN)EN GANG TIL 
L’ (RUS )J(QFF)/( RUS ) N" 

6110 GETAS I FAS-"N"THEN110 
6120 IFAS-"J"THEN6000 
6130 G0T061 10 
7000 SYS69738 





TJANA PENGAR PA 
ATT PRENUMERERA! 

Dags för cn ny omgång av prenumeranterbjudande som vi har lyck¬ 
ats få våra annonsörer att ställa upp med. Det skall ju löna sig att 
vara prenumerant! I nästa Prenumerantspecial kommer nya erbju¬ 
danden. 

V\B^fÉRW\JDTNDT'"AT\WW^ m % 4 [ 

J 

\ ZlProCopy ST (ordinarie pris: 379:-).339:- ^ 

J 

i Ja. jag vill köpa ovanstående hårdvara till prenumerantpris. + ro*, 

{ Skicka det snarast till mig: £ ^ 


* rnr/urt 

é ' " J 

Deana kapong Axfcai Ut SELDA MEDIA. K)X 153.44101 FLÖDA. 

^MM«m«mMIMMSMMM5&Uu25u3uC3SaMW«MIMMUia7 



BESTÄLLNINGSKUPONG 
DISKETT 

S 1/4* med alla program för Commodore 64 som finns i dcua special¬ 
nummer för prenumeranter)...39:- (inkl.porto) 

G Ja. skicka ovanstående diskett snarast till mig: 




■ >1"* 1^" 'i 



\ RABATTERBJUDANDE ATARl ST \ , 
i UVideo 1000ST (ordinarie pris: 1795:-).1675:- 

| 


(Digitaliscnngsunerface med Arg (SI2 fSrgcr per bild) 

□ Endan Video 1000 moooehrome___1295 

Q Endast Argutilitya. disken . .....500:- 

Ja, jag vill köpa ovanstående hårdvara till prenumerantpris. 
Skicka det snarast till mig: 


Adress “ 
Pnr/Ort 


—rr 




r — * yi +s£* m ot sa LD A mpiA. eox i p . *m o; rcooA 


Interruptstyrcl 

joystick för 
Uommodore 64 

I Hej! Det hår är 

pssssr 

JProgrammet: 
liHo 49,52 

149176 DATA l£' if I ,’ 2, »3.88.96.173 0 

pSggpl# ! 

I-W208 DATA 4g ,,^’; 234 '20«.0.208 76 

h* »©sa* 


S1>1 ( uu M l 

MASTERMIND 

Ni efterlyser lite hemmagjorda program och då jag gillar 
spel som kräver lite tankemöda har jag gjort detta program. 

Tecknen i ramen påradl215ärQER i grafisk mode 
och tecknen i rad 1220 är A S D i grafisk mode. 

För att få ett självstartande program sparas det med 

SA VE "MASIEKMIMT LINE 9999 

Sven Erik Eriksson, Hägersten 
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